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DEFINITION FILE FOR ACL EDITOR COMPILATION 
Version ‘'v04-000' 


ERSTE TIS T TTT TTT TT TTT rir iii titi iit iii ii iiiiiiiiitiitiiicy 


‘ft 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

* ALL RIGHTS RESERVED. 

ie THIS fo “Sere IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIE 
ie ONLY IN ge WITH THE TERMS OF SUCH LICENSE AND WITH TH 
ie IN CLUSION OF THE ve COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF = rhe tet PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 
ie OTHER PERSON. O AND OWNERSHIP OF THE SOFTWARE IS HEREB 


® 
a 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. * 
ft 
aod 
y 
® 
® 
2 
® 
+ 
® 
® 


D 
E 
Y 
Y 


ie 

ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

ie CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

- SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

: 
 taansiabembiniiaseateniabeniebunianertamensinnniéemaniaansimenninete 


toe 
1 

FACILITY: Miscellaneous utilities 
i ABSTRACT: 


These are the data stucture definitions and random macros 
used to compile the ACL editor. 


i ENVIRONMENT: 
VAX/VMS operating system, user mode utilities. 


i AUTHOR: L. Mark Pilant CREATION DATE: 7-Jul-1982 10:10 
i MODIFIED BY: 
v03-009 LMP0270 ark Pilant 29-Jun-1984 8:51 
Add definition P-4 the sanaretid abort ra 
v03-008 Lanoets rk Pilant 12:23 


Add support for oiy: The and unlocking the yt een s ACL. 
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Add support for modifying the RMS journal bits if the 
curresponding ACE is added or deleted. 


' v03-007 LMP0193 L. Mark Pilant 14-Feb-1984 12:44 
i Move the journal and recovery file RMS struct rqs to the 

: common fthes as they are referenced from multiple nodules. 
: v03-006 LMPO18 L. Rach ne 17- an~ 1906 10: ft 
i Add o- port for r the CHANGESA { system service instead o 

: d rect” Rep cal 

: v03-005 LMP0172 L. Mark Pilant, 28-Nov-1983 12:11 
: Numerous bug fixes, support for VT2xx terminals, and a 

: session keystroke logger. 

: V03-004 LMPO13. L. Mark Pilant, 17-Aug-1983 8:59 
: Misc fixes to fase mode to cure ACCVIOs. 

i v03-003 yearat k Pilant, 22-Jun-1983 11:37 
; e OWNER setts "deltwition’ to CONTROL. 

' v03-002 0103 Pilan 20-Apr-1983 10:23 
: Add support for the MAIDEN oma” PROTECTED ACE flag bits. 

: v03-001 LMP0074 L. Mark Pilant 20-Jan-1983 12:02 
; 

' 
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! Local definition files. 
REQUIRE "LIBS:AEDLCLDEF'; 
! Declare VAX built in functions. 
BUILTIN 
INSQUE, 
REMQUE; 
! Macros to allocate and deallocate dynamic memory. 


MACRO 
E, ADDRESS) = 


ROUTINE ; LIBSGET_VM : ADDRESSING_MODE (GENERAL); 


VM_STATU 
_STATUS = LIBSGET_VM (ZREF (SIZE), ADDRESS); 
IF WR STATUS THEN THSFILL (0, SIZE, . ADDRESS); 


° 
DEALLOCATE (SIZE, ADDRESS) = 
BEGIN 


EXTERNAL ROUTINE LIBSGET VM : ADDRESSING_MODE (GENERAL); 
LIBSFREE_VM (ZREF (SIZE), ADDRESS); 


° 
! Macro to signal an error and save the worst case error condition. 


MACRO 
SIGNAL (ARG) = 


BEGIN 

EXTERNAL a etts: LIBSSIGNAL : ADDRESSING_MODE (GENERAL); 
If .AED_L_FLAGSCAED_V_SCOPEJ 

THEN 

AG 

Ss 


S 
LL_WORSTERR = ARG; 


! Shared message definitions. 


SSHR_MSGDEF (AED, 277, LOCAL, 
OPENIN, ERROR) 
(CLOSEIN, ERRORS, 
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Cates, ERR 
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! Define common storage structure. 
OWN=AED_ COMMON (OVERLAY ,ADDRESSING_MODE (WORD_RELATIVE) ,ALIGN(O)); 


PSECT 
OWN 


SBBLOCK 
SBBLOCK 


SBBLOCK CDSC$C_S_BLNI, 


ECTOR 
ECTOR 
ECTOR 
EC 


<<<< 


T 
T 
T 
T 
L 


: $SBBLOCK 


E43: 


1,BYTE), 
1,BYTEJ, 
Hse 


433!" 
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ee ee we teem mime meme mee 


YTEOFF SET ( 


AED_L_CURACE __: REF SEB: EE: 
AED"L-FIRSTLINE : REF SBBLOCK 
AED“L“LASTLINE : REF $BBLOC 
AED-L-BEGINLINE : REF SBaLOCK. 
AED-W_INPUTLEN : VECTOR dD), 
AED"Q"DEL_ACE : SBBLOCK 
AED-Q"DEL“LINE : S$BBLOCK [DSC$C_S_BLN), 
AED"Q"DEL“WORD : S$BBLOCK Dsc$Co > “BLN. 
AED"B-DEL-CHAR : VECTOR C 
AED-A_ACLOUFFER : REF gv 
AED“Q-OUTLINE : SBBLOCK fe $_BLN, 
AED“W"OBJCHAN =: »WORDT, 
AED"W"TERMIN  : VECTOR (1.WORD). 
AED"W-TERMOUT : VECTOR [1.WORD]. 
AED-W-10SB : VECTOR £4;WORD]. 
AED“L STATUS, 
AED“8-FIELD : VECTOR C1,BYTE), 
AED“W"FIELDBEG : VECTOR [1.WORD). 
AED"W"FIELDEND : VECTOR (1.WORD). 
AED"B_ ITEM : VECTOR [1.BYTE).} 
AED“W-ITEMBEG : VECTOR (1. 
AED“W-ITEMEND : VECTOR [1.WORD). 
AED-UTJOURNAL —; VEFTOR C1 GORDI” 
AED-T"CURLINE =: SBBLOCK tgyore $3 
AED_W_TOTALSIZE : VECTOR C1,WORD), 

! Journal and recovery file RAS data structures. 
JOURNAL _F AB : SFAB_DECL, 
JOUR NAR : $NAM” =PECL co 
JOURNAL ~RAB : $RAB 
JOURNAL ~ XABPRO ABPR 43 sbgcu 
JOURNAL“BUFFER : VECTOR (10, GyYTE), 


; Target ob 


poof yt tt 
Qual at “Set ton flags 
ct type code 


ect name descr 
Worst bores encountered 
Device Line width 
Number of ines on the page 
Current i position 
Current = "position. 
Last set Cc aft ition 
Last ser Line pos abe p 
poet Line queue h 

e: Extra longuord is 
ane 2 A. because of the way 
the string search loop is 
designed. 
Address of current ACE 
First line segment of ace 
Last Line segment “ir 
Address of first | 7. : display 
Size o cucrent eS 
Deleted ae cae "head 

ne descr 


! De (Steg he descr 


"! Deleted character 
! Address _ nar 
lu 


channei r ACL 


Terminal output channel 
_ gtetus block 
outine exit status 
Current field number 
—_ position of field 
End position field 


A hy r pt ing) 

ans $25 Res ating les ags "oe header 
tl e" segment stora 

i Total size of all ACE segments 


Journal file FAB 

Journal file SAN block 
ournal file RAB 

Journal file PROtection XAB 
Storage for journaled keys 
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OUR NDEX, ! Index into journal buffer 
ReCOVERCEAB : $FAB_DECL, i Recovery tle FAR 
RECOVER_NAM : 2 CL, ! Recovery file NAM block 
RECOVER RAB : SRAB Eft ' Recovery file RAB 
RECOVER-BUFFER : VECTOR (16, BYTE), 


7 storage for recovery record 
RECOVER_INDEX; Index into recovery buffer 


PSECT OWN=SOWNS(CONCATENATE ,ADDRESSING_ MODE (WORD_RELATIVE) ,ALIGN(2)); 
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! External routines 


ae CUTS VALUE 


: ADDR S$ 1NG_OD (GENERAL), ! Get qyetitior.y 
ct 1$P nee vn : ADDRESSING_MODE (GENERAL), i See {f qual fier present 
L TasFh : ADDRESSING_MODE (GENERAL), i Release dynamic memory 
LIBSGE : ADDRESS ps Ba (GENERAL), i allocate dynamic memory 
LIB$T oelave : ADDRESSING_MODE (GENERAL), i General purpose o er 
SCR SCROLL : ADDRESSING_MOD CeENERAL) o! Scroll ei splay down ne 
SCRSERASE_LINE : ADDRESSING_MODE (GENERAL), ! Erase a Line of the display 
SCREERASE PAGE =: ADDRESSING_MOD CGENERAL} « i rase. @ portion of the display 
SERSSET.CORSOR © ADDRESSING-RODE (GENERAL). | Set g Sister Serer est este 
SCRSSET“SCROLL : ADDRESSING MODE (GENERAL), ! Set display screttin regio 
SCRSUP_SCROLL =: ADDRESSING_MODE (GENERAL); i Scroll d splay up 1 line 


! External error message definitions 
EXTERNAL LITERAL 
! Fatal error. 
AEDS_OBJLOCKED, 
! Recoverable errors. 
AEDS_BADKEEP 
AEDS_LOCATERR 
AEDS—INIREADERR, 
! Warning messages. 
AEDS saci 


ae 
a 
3: 


Sees 
r 4 
— 
z 
So 


erOoHmMmzeo 


if 
eam Ome 


5 e585 
=o 


Rimini 
: 
F 


ee 


! Informational messages. 
AEDS_NOCTRLCHAR, 
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AEDS_NOTF OUND 
AEDS-CONTROL_€, 

! Success messages. 


AEDS_ACLUPDATED, 
AEDS_NOCHANGE ; 
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